COMO ABRIR arquivo texto e copiar alguns dados

coloque um RichEdit e deixe invivible senaum quiser q apareca....
entaum faca
RichEdit1.Lines.LoadFromFile(´arquivo.txt´);

ou tbm usar o tipo
var
aux :TextFile;

mas esse acho q ficaria um pouco mais complicado.

O cara deu erro!!!, se puder me explicar melhor

´cannot open file error´ o arquivo está no diretório corrente do sistema tentei:
procedure TForm1.Button2Click(Sender: TObject);
Begin
RichEdit1.Lines.LoadFromFile(´pedido.txt´);

end;

não sei se vou conseguir te ajudar, mas olha o codigo abaixo:

procedure Tform1.Button1OnClick(......);
var
Arquivo : TextFile;
Linha : String;
begin
Assign(Arquivo, ´c:\arquiov.txt´); //Associa variavel Arquivo ao arquivo TXT.
Reset(Arquivo); // abre o arquivo
Table1.Open;
while NOT EOF (arquivo) do
begin
ReadLn(Arquivo, Linha); //´captura´ a linha do Arquivo para a variavel Linha
//Read apenas le a linha, ReadLn le e pula para a proxima linha
table1.Insert;
table1.FieldByName(´Nome´).Value := Copy(Linha, 01, 30); // copia 30
caracteres da variavel Linha apartir da posicao 01;
table1.FieldByName(´Cidade´).Value := Copy(Linha, 31, 15); // copia 15
caracteres da variavel Linha apartir da posicao 31;
Table1.Post;
end; //end do while
Close(Arquivo);
Table1.Close;
end; //end da procedure

Vê se vai funcioner ok??
[]´ Felipe

não sei se vou conseguir te ajudar, mas olha o codigo abaixo:

procedure Tform1.Button1OnClick(......);
var
Arquivo : TextFile;
Linha : String;
begin
Assign(Arquivo, ´c:\arquiov.txt´); //Associa variavel Arquivo ao arquivo TXT.
Reset(Arquivo); // abre o arquivo
Table1.Open;
while NOT EOF (arquivo) do
begin
ReadLn(Arquivo, Linha); //´captura´ a linha do Arquivo para a variavel Linha
//Read apenas le a linha, ReadLn le e pula para a proxima linha
table1.Insert;
table1.FieldByName(´Nome´).Value := Copy(Linha, 01, 30); // copia 30
caracteres da variavel Linha apartir da posicao 01;
table1.FieldByName(´Cidade´).Value := Copy(Linha, 31, 15); // copia 15
caracteres da variavel Linha apartir da posicao 31;
Table1.Post;
end; //end do while
Close(Arquivo);
Table1.Close;
end; //end da procedure

Vê se vai funcionar ok??
[]´ Felipe

tentei mas ainda dá erro olhe


[Error] fiat.pas(67): Incompatible types: ´TPersistent´ and ´Text´

Obrigado