Aplicar Função, Como Fazer? (RESOLVIDO)

[Arlon]

Eu tenho que fazer uma pesquisa por nomes no programa e percebi que o SQL não realiza a busca se esse nome estver acentuado. Procurei na net e achei uma função que retira acentos de uma string. Mas aí deparei-me com um gravíssimo problema: como usar utilizar uma função?? Hauhaauhauahua, eu não sei!!

A função está abaixo. Eu já fiz aquele esquema de Ctrl+Shift+C e coloquei o código lá certinho, mas como eu faço para "executar" a função??

function TFrmUsuario.RemoveAcentos(Str: String): String;

Const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';

SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';

Var

x : Integer;

Begin

For x := 1 to Length(Str) do

Begin

if Pos(Str[x],ComAcento)<>0 Then

begin

Str[x] := SemAcento[Pos(Str[x],ComAcento)];

end;

end;

Result := Str;

end;

[Progr'amador]

Olá Arlon!,

É tipo assim:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    function RemoveAcentos(Str: String): String;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function TForm1.RemoveAcentos(Str: String): String;
Const ComAcento = 'àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ';
SemAcento = 'aaeouaoaeioucuAAEOUAOAEIOUCU';
Var
x : Integer;
Begin
For x := 1 to Length(Str) do
Begin
if Pos(Str[x],ComAcento)<>0 Then
begin
Str[x] := SemAcento[Pos(Str[x],ComAcento)];
end;
end;
Result := Str;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := RemoveAcentos(Edit1.text);
end;

end.

fwl!!!

[rockbilly]

é so chamar a function, ex:

RemoveAcentos("STRING A RETIRAR ACENTUAÇÃO");

[Arlon]

Valeu, agora consegui.